home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
PASDEMO2
/
GRAPHT2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
711b
|
23 lines
program GraphTest2;
uses
Graph;
var
GraphDriver,
GraphMode,
ErrorCode: integer;
begin
GraphDriver := Detect; { Set flag: do detection }
InitGraph( GraphDriver, GraphMode, 'C:\DRIVERS' );
ErrorCode := GraphResult;
if ErrorCode <> GrOK then begin { Error? }
writeln( 'Graphics error: ', GraphErrorMsg( ErrorCode ) );
writeln( 'Program aborted...' );
Halt( 1 );
end;
OutText( 'In Graphics mode. Press <RETURN>' ); readln;
RestoreCRTMode;
write( 'Now in text mode. Press <RETURN>' ); readln;
SetGraphMode( GraphMode );
OutText( 'Back in Graphics mode. Press <RETURN>' ); readln;
CloseGraph;
end. { end of program GraphTest }